if the visible of card field "ha" is true then hide card field "ha"
else
talk "hahahaha.ha.",165,110
show card field "ha"
talk "Well, thank yoo.",165,110
end if
end mouseUp
-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=207 top=195 right=252 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Copy Button
----- HyperTalk script -----
on setButton
put"Once you've clicked, please don't move the mouse for a sec…"
wait until the mouse is down
repeat until the mouse is up
get the mouseLoc
set the loc of card button "Move it!" to it
end repeat
hide message
end setButton
on mouseup
play harpsichord fast
talk "Are you sure about that,",165,110
answer "Do you want to copy the 'Move it' button?" with "Yes" or "No"
if it is "No" then
play boing
talk "owkay, not this time.",165,110
exit mouseup
end if
hide tool window
hide pattern window
talk "Here we go.",165,110
put the long name of this stack into thisStack
show message at 17,298
put " Where do you want it?"
talk "Where do you want the button?",165,110
put fileName (STAK) into stackName
hide message
if stackName is not empty then
if the long name of stackName is thisStack
then
play boing
talk "Oops",165,110
answer "You donΓÇÖt want to copy it to this stack!" with OK
exit mouseUp
else
set cursor to 4
get the userLevel
put it into rememberLevel
set the userLevel to 4
set lockScreen to true
choose button tool
show card button ID 23
click at the loc of card button ID 23
doMenu "Copy Button"
hide card button ID 23
set lockScreen to false
set lockMessages to true
set cursor to 4
go to stack stackName
choose button tool
doMenu "Paste Button"
talk "Please poasition the button",165,110
answer "Please click wherever you want the button." with "OK"
repeat until it is "Yes"
setButton
answer "Is this where you want it?" with "Yes" or "No"
end repeat
set hilite of card button "Move it!" to false
put " Got it! Please stand by a minute for some housekeeping…"
talk "Sit tight for a minnut",165,110
set lockScreen to true
set cursor to 4
go to card 2 of thisStack
choose button tool
hide menuBar
click at the loc of card button "Reset //"
doMenu "Copy button"
set cursor to 4
go to stack stackName
doMenu "Paste Button"
set cursor to 4
go to card 2 of thisStack
click at the loc of card button "WindowReset"
doMenu "Copy button"
set cursor to 4
go to stack stackName
doMenu "Paste Button"
put " Just about finished… thanks for being patient!"
talk "Hang on, we're just about done.",165,110
choose browse tool
if the userLevel>2 then
doMenu Compact stack
end if
show menuBar
set lockScreen to false
hide message
set cursor to 4
go to card 2 of thisStack
get rememberLevel
set the userLevel to it
set lockMessages to false
flash 3
beep 2
talk "That's,got it.",165,110
answer "You're all set… copying is done." with "Thanks!"
end if
else
put " Oh,well… maybe next time."
play boing
talk "Let me know if you change your mind.",165,110
wait 2 secs
hide message
end if
end mouseUp
-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=199 top=61 right=172 bottom=253
-- title width / last selected line: 65535
-- icon id / first selected line: -15767 / 49769
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Move it!
----- HyperTalk script -----
on moveit
show card window at -384,317
play "harpsichord" tempo 1000 "100"
end moveit
on mouseUp
if the hilite of card button "User Pref" is true then
put multiFinder() into mfResult
else
moveit
exit mouseUp
end if
if mfResult is true then
moveit
else
beep
talk "Oops, there's no multifinder!",165,110
answer "Sorry, MultiFinder is not running right now." with OK
talk "I can move it if you uncheck the box on top of the screen.",165,120
end if
end mouseUp
-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=196 top=279 right=303 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
visual dissolve to inverse
visual dissolve
go prev
end mouseUp
-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=199 top=305 right=333 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
visual dissolve to inverse
visual dissolve
go next
end mouseUp
-- part 21 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=4 top=24 right=45 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User Pref
----- HyperTalk script -----
on mouseUp
if the hilite of me is true then
play harpsichord fast
talk "I'll start checking multifinder.",165,110
else
play harpsichord fast
talk "I'll quit checking for multifinder.",165,110
end if
end mouseUp
-- Sorry… I wanted to include the automatic copy of this button too,
-- but it seems to take too long. The end-user winds up sitting and
-- waiting for several minutes while the whole process goes on, which
-- includes copying the Paint background surrounding the button. If
-- anyone really would find it useful, and isnΓÇÖt able to do it them-
-- selves, IΓÇÖll consider it for a future project. (But if you've gotten
-- this far, you can probably figure it out!)
-- 2/17/88 ΓÇó Tom Robinson
-- part 23 (button)
-- low flags: 80
-- high flags: E003
-- rect: left=328 top=89 right=200 bottom=382
-- title width / last selected line: 65535
-- icon id / first selected line: -15767 / 49769
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Move it!
----- HyperTalk script -----
on mouseUp
show card window at -384,317
play harpsichord tempo 1000 "100"
end mouseUp
-- part contents for card part 2
----- text -----
Go through the CardMover Demo button script on the previous card to see what's going on. The
ΓÇ£Move it!ΓÇ¥ button is set up to get the Card down and to the side
(out of the way), so you can get to the rest of your applications
& DAs. YouΓÇÖll then find a WindowReset button if you want it lined up again. And of course, you can drag it by the title bar like any other window. ΓÇ£Copy ButtonΓÇ¥ on this card will copy
ΓÇ£Move it!ΓÇ¥ (and ΓÇ£WindowResetΓÇ¥) to any stack you specify.
